home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / vis082s.arc / DESQ42.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-18  |  1.8 KB  |  45 lines
  1. { =========================================================================== }
  2. { DESQ42.pas - Unit to interface DESQview with TP 4.0       ver 4.2, 10-01-88 }
  3. {                                                                             }
  4. { These are the routines that are published by Quarterdeck and have been      }
  5. { adapted for use in Turbo Pascal.  Only 95 bytes of code.                    }
  6. {  by  James H. LeMay, CIS 76011,217                                          }
  7. {  for Eagle Performance Software                                             }
  8. {      P.O. Box 122237                                                        }
  9. {      Ft. Worth, TX  76121                                                   }
  10. {                                                                             }
  11. { Version 1.0 (06-05-88)                                                      }
  12. {  - Initial release                                                          }
  13. { Version 4.2 (10-01-88)                                                      }
  14. {  - Made In_DV a global variable with initialization to FALSE                }
  15. {  - Revised DESQqwik.pas for QWIK42.TPU                                      }
  16. { =========================================================================== }
  17.  
  18. {$R-,S-,I-,D-,F+,V-,B-,N-,L+,O+ }
  19.  
  20. UNIT DESQ42;
  21.  
  22. INTERFACE
  23.  
  24. var
  25.   In_DV: boolean;
  26.  
  27. function  DV_Get_Version: word;
  28. function  DV_Get_Video_Buffer (VideoSeg: word): word;
  29. procedure DV_Pause;
  30. procedure DV_Begin_Critical;
  31. procedure DV_End_Critical;
  32.  
  33. IMPLEMENTATION
  34.  
  35. {$L DESQ42.obj }
  36. function  DV_Get_Version;      external;
  37. function  DV_Get_Video_Buffer; external;
  38. procedure DV_Pause;            external;
  39. procedure DV_Begin_Critical;   external;
  40. procedure DV_End_Critical;     external;
  41.  
  42. BEGIN
  43.   In_DV := false;    { allows correct in memory compiling }
  44. END.
  45.